home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
print
/
pdfepson.arj
/
EPSONESC.DOC
next >
Wrap
Text File
|
1994-04-13
|
3KB
|
66 lines
{Epson printers have a command set called the ESC/P set. This command set
can do many things, the most useful of which are in the unit below. Note that
several of these commands, such as the Epson Roman T font, require the newer
ESC/P 2 command set. These won't work at all with the older printers, but the
other commands will. Usage for the commands comes after their declarations.}
{Epson is a registered trademark of Epson America, Inc.}
unit EpsonESC;
interface
uses Printer;
const Roman = #0; {font values for SetFont}
SansSerif = #1;
Courier = #2;
Prestige = #3;
Script = #4;
RomanT = #10;
SansSerifH = #11;
On = True; {values for the Turn commands}
Off = False;
procedure GiveESCCommand (Command : String); {gives a command with the
ESC included. To use this command, for example, to do an initialization,
include the command: GiveESCCommand('@');
The Epson initialization code will be sent to the printer.}
procedure SetFont (Font : String); {Chooses font. To use this command,
include the following in your program: SetFont(Roman);
The valid fonts are shown above. Keep in mind that you don't need to use
the numbers because the constants take care of that. You just have to use
the names of the fonts. Roman T and Sans Serif H are P 2 only.}
procedure Initialize; {initializes printer. Takes no parameters; does
a simple initialization of the printer.}
procedure FormFeed; {commands printer to Form Feed. Moves the paper to the
top of next page.}
procedure TurnItalic (OnOrOff : boolean); {turns italics on or off. Use
the command: TurnItalic(On);
you can also use off.}
procedure TurnBold (OnOrOff : boolean); {turns bold on or off. Use like
TurnItalic, above.}
{All of the following are used like TurnItalic, above.}
procedure TurnCondensed (OnOrOff : boolean); {turns condensed on or off}
procedure TurnDoubleWidth (OnOrOff : boolean); {turns double-width on or off}
procedure TurnUnderline (OnOrOff : boolean); {turns underline on or off}
implementation
{Remainder of source code available for $5 plus $2 shipping and handling.
Out-of-US orders require $5 shipping and handling. Those who order will also
recieve notices of improvements, which will come because I use this unit too,
and can see several possible future improvements. If they send back these
notices with postage ($2 US & $5 foreign) they will recieve the latest version
complete with all source code. Send all orders to:
Tim Hurley
RR1 Box 168P
Bay City, TX
77414}